home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.06 Jun 89 / HyperArrays ƒ / HYPER array / databuff.p < prev    next >
Encoding:
Text File  |  1989-03-07  |  984 b   |  38 lines  |  [TEXT/MPS ]
  1.  
  2. unit databuffXcmd;
  3. interface
  4.     uses MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, HyperXCMD, QDAccess;
  5. procedure databuff(ParamPtr: XCMDPtr);
  6. implementation
  7.     type
  8.         timeDarray=array[0..59] of integer;
  9. procedure arrayrsc(ParamPtr: XCMDPtr);forward;
  10. procedure databuff(paramptr:xcmdptr);
  11.     begin
  12.         arrayrsc(paramptr);
  13.     end;
  14. procedure arrayrsc(ParamPtr: XCMDPtr);
  15.     var
  16.         MYTIMEHAND,buffarrayH:HANDLE;
  17.         REFNUM:INTEGER;
  18.         TIMEARRAY,buffarray:TIMEDARRAY;
  19.         temphandle:handle;
  20.         tempstr:str255;
  21.         horiz,vert:longint;
  22.         numparams :integer;
  23.     begin
  24.         MYTIMEHAND:=(GETRESOURCE('ANES',1005));
  25.         HLOCK(MYTIMEHAND);
  26.     
  27.         BLOCKMOVE(MYTIMEHAND^,@timearray,SIZEOF(TIMEARRAY));
  28.         releaseresource(mytimehand);
  29.         buffarrayH:=(getresource('ANES',1010));
  30.         hlock(buffarrayH);
  31.         blockmove(buffarrayH^,@buffarray,sizeof(buffarray));
  32.         buffarray := timearray;
  33.         blockmove(@buffarray,buffarrayH^,sizeof(buffarray));
  34.         REFNUM:=CURRESFILE;
  35.         changedresource(buffarrayH);
  36.         writeresource(buffarrayH);
  37.     end;
  38. end.